home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / bar.arc / BARPROC.PRG < prev   
Encoding:
Text File  |  1987-03-30  |  1.2 KB  |  69 lines
  1. * Program..: Barproc.PRG
  2. * Author...: Jon Wind
  3. * Date.....: March 30, 1987
  4. * Version..: dBASE III PLUS
  5. * Note(s)..: This is the procedure file for Bar.PRG.
  6. *
  7.  
  8.  
  9. * dBASE III PLUS procedures:
  10.  
  11.  
  12. PROC buildbar
  13. PARA row,title,colr
  14. SET COLO TO &colr
  15. @row,(80-LEN(title))/2 SAY title
  16. @row+3,13 SAY "0    10   20   30   40   50   60   70   80   90   100"
  17. @row+4,12 TO row+6,65 DOUB
  18. SET COLO TO 7
  19. PUBL barline
  20. barline=row+5
  21. @barline,14 SAY ""
  22. RETU
  23.  
  24.  
  25. PROC barstat
  26. PARA cnt,colr
  27. SET COLO TO &colr
  28. IF cnt>0
  29.   @barline,14 SAY REPL(CHR(219),cnt/2)
  30.   IF cnt/2>INT(cnt/2) && odd #'s
  31.     ??CHR(221)
  32.   ENDI
  33. ENDI
  34. SET COLO TO
  35. RETU
  36.  
  37.  
  38. * dBASE III procedures:
  39.  
  40.  
  41. PROC buildbr2
  42. PARA row,title,colr
  43. SET COLO TO &colr
  44. @ROW,(80-LEN(title))/2 SAY title
  45. @row+3,13 SAY "0    10   20   30   40   50   60   70   80   90   100"
  46. @row+4,12 SAY CHR(201)+SUBS(dbar,1,52)+CHR(187)
  47. @row+5,12 SAY CHR(186)+SPAC(52)+CHR(186)
  48. @row+6,12 SAY CHR(200)+SUBS(dbar,1,52)+CHR(188)
  49. SET COLO TO 7
  50. PUBLIC barline
  51. barline=ROW+5
  52. @barline,14 SAY ""
  53. RETU
  54.  
  55.  
  56.  
  57. PROC barstat2
  58. PARA cnt,colr
  59. SET COLO TO &colr
  60. IF cnt>0
  61.   @barline,14 SAY SUBS(bar,1,cnt/2)
  62.   IF cnt/2>INT(cnt/2)  && odd #'s
  63.     ??CHR(221)
  64.   ENDI
  65. ENDI
  66. SET COLO TO 7
  67. RETU
  68.  
  69.